home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / SPTSL.z / SPTSL
Text File  |  1996-03-14  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSPPPPTTTTSSSSLLLL((((3333FFFF))))                                                            SSSSPPPPTTTTSSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SPTSL   - SPTSL given a positive definite tridiagonal matrix and a right
  10.      hand side will find the solution.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE SPTSL(N,D,E,B)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      NNNN INTEGER
  20.         is the order of the tridiagonal matrix.
  21.  
  22.      DDDD REAL(N)
  23.         is the diagonal of the tridiagonal matrix.
  24.         On output, D is destroyed.
  25.  
  26.      EEEE REAL(N)
  27.         is the offdiagonal of the tridiagonal matrix.
  28.         E(1) through E(N-1) should contain the
  29.         offdiagonal.
  30.  
  31.      BBBB REAL(N)
  32.         is the right hand side vector.  On Return
  33.  
  34.      BBBB contains the solution. LINPACK.  This version dated 08/14/78 .  Jack
  35.      Dongarra, Argonne National Laboratory.  No externals Fortran MOD
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.